''' <summary>
''' This Class Holds descriptions, explainations and helpID reference numbers for the inbuilt User
''' Help.
''' </summary>
''' <remarks></remarks>
<Serializable()> Friend Class BikDescription
    Private m_description As String = "N/A"
    Private m_helpID As Integer = 0
    Private m_parameters As String = "N/A"
    Private m_toolTip As String = "N/A"

    Sub New(ByVal Description As String)
        m_description = Description
    End Sub
    Sub New(ByVal Description As String, ByVal Parameters As String)
        Me.New(Description)
        If Not IsNothing(Parameters) Then m_parameters = Parameters
    End Sub
    Sub New(ByVal Description As String, ByVal Parameters As String, ByVal ToolTip As String)
        Me.New(Description, Parameters)
        m_toolTip = ToolTip
    End Sub
    Sub New(ByVal Description As String, ByVal Parameters As String, ByVal ToolTip As String, ByVal HelpID As Integer)
        Me.New(Description, Parameters, ToolTip)
        m_helpID = HelpID
    End Sub
    Public Property Description() As String
        Get
            Return m_description
        End Get
        Set(ByVal value As String)
            m_description = value
        End Set
    End Property
    Public Property HelpID() As Integer
        Get
            Return m_helpID
        End Get
        Set(ByVal value As Integer)
            m_helpID = value
        End Set
    End Property
    Public Property Parameters() As String
        Get
            Return m_parameters
        End Get
        Set(ByVal value As String)
            m_parameters = value
        End Set
    End Property
    Public Property ToolTip() As String
        Get
            Return m_toolTip
        End Get
        Set(ByVal value As String)
            m_toolTip = value
        End Set
    End Property
End Class
